約 3,721,990 件
https://w.atwiki.jp/opengl/pages/14.html
なぜ、DirectXではなくOpenGLなのか? 最新のグラフィックス、最速の描画を行うのであれば間違いなくDirectXがベストですが、 3Dを勉強したい、ころころ変わるDirectXにはついて行けないという方、いろんなOSで シェーダーモデル5.0を使いたいという方にはOpenGLをおススメします。 OpenGL 4.0 OpenGL4.0を駆使すれば、MacOSやLinux、Windows XP、Vista、7、8の4世代のWindowsに渡って DirectX 11世代のシェーダーモデル5.0を使う事ができます。 DirectXより簡単 当サイト管理人の感想ですが、DirectXに比べてOpenGLは割と簡単な印象を受けます。 業界標準となる可能性 OpenGLが右手座標系、DirectXが左手座標系を採用しているのは大きな明暗。 数学やほとんどの3Dアプリでは右手座標系を使用しています。 ODEやOpenALなども、そうです。つまり右手座標系が業界標準だったのです。 最近ではDirectXも左手座標系と右手座標系を選べるようになったのですが、 統一されていないのは混乱を招く種です。 また、OpenGLはプレイステーション1,2,3、iphoneアプリなどのSDKとして 採用されています。 C/C++を使う理由 言うまでもなく、豊富な各種ライブラリと過去の遺産を無駄にする事なく プログラミングするためです。 実行速度という点では、アセンブラに劣るでしょうが、VisualC++の場合、 MASMがインラインアセンブラで使えます。 GUIに関してはC#、VisualBasic、JAVA + Swingに、分があるように感じるかも しれませんが、.NET Frameworkでしたら、C++/CLIを用いる事でC#と同等の GUIができます。 さらに、C++/CLIの言語仕様もJAVAのような完全なオブジェクト指向ではないため、 オブジェクトが存在しなかった時の例外処理等を記述しなくても良く、 非常に楽をする事ができます。 C#で追加されたガベージコレクションやファイナライザといった機能も併せ持って いる上に、単純に同じようなアプリケーションを作成した場合、C#製の物よりも C++/CLI製の.NETアプリの方が速いようです。 つまり、現時点でWindows環境下において、究極の開発言語という事になります。 freeglutを使う理由 これも言うまでもなく、圧倒的にプログラムコード量を減らし楽をするためです。 また、単純にOpenGLの使い方を覚える点で面倒な初期化関連やウインドウの 作成などの手間を省くためです。 「こんなに簡単にOpenGLプログラミングできるんだ」という事を体験するには freeglutが1番適していると思ったからです。 var so = new SWFObject( http //chuka-tube.com/wp-content/themes/141210_pc/jw/player.swf , mpl , 426 , 320 , 9 ); so.addParam( allowfullscreen , true ); so.addParam( allowscriptaccess , always ); so.addParam( wmode , opaque ); so.addVariable( file , http //dd.yinyuetai.com/uploads/videos/common/F25901494A27F1964FD2A25634ABD357.mp4?sc=dac1ced33549d3a4 ); so.addVariable( image , http //img.chuka-tube.com/music/26/2164508.jpg ); so.addVariable( provider , http ); so.addVariable( autostart , false ); so.addVariable( backcolor , EEEEEE ); so.addVariable( frontcolor , 666666 ); so.addVariable( lightcolor , 888888 ); so.addVariable( screencolor , 000000 ); so.addVariable( volume , 100 ); so.write( mediaspace );
https://w.atwiki.jp/udon888/pages/89.html
computers can do many varieties of paintings. for instance, computers can helps us do maths issues speedy. some issues are too difficult for us to work them out, however computer systems can. a scientist can ask computers a few questions, and the computers can answer at the screen.at present, to satisfy the desires of various exams, the technique of memorizing robotically remains modern-day and the habit of bookish take a look at remains famous within the direction of education.students generally tend to take it for granted that the all the facts discovered by way of books.if we fully agree with what books say,we may get the incorrect or one-sided information.what is greater,the idea in books isn t usually appropriate for the real situation.it is able to result in unnecessary trouble to us with being analyzed.it is very vital for us to expand our potential too suppose independently, rather than blindly accepting everything in books. the maximum compelling reason for such an endeavor is to alternate a deep-entrenched misconception commonplace among university college students. maximum universities offer water and power without cost, misleading college students into believing that such assets are countless and inexhaustible. we should understand that, currently, many components of our tormented by unprecedente drought and energy shortage. we need to show due situation for the welfare of people in the ones places by refusing to be selfish in satisfying our very own needs. as responsible citizens of our society, we ve the responsibility to recycle anything we can lay fingers or. the small efforts by using a single man or woman may additionally make a massive distinction. top business directory
https://w.atwiki.jp/swgstring/pages/47.html
タグ 翻訳待ち beast.stf 1 ability_activate_creature_knowledge Studying Creature... beast.stf 2 ability_learn_new_skill You Have Learned a New Skill! beast.stf 3 activity_dislike Your companion seems unhappy about doing this activity. beast.stf 4 activity_favorite You can tell that your companion approves of this activity. beast.stf 5 beast_angry Angry beast.stf 6 beast_annoyed Annoyed beast.stf 7 beast_bff Best Friend Forever beast.stf 8 beast_buff_level_too_high The beast is too big for this to have any effect. beast.stf 123 beast_buff_no_beast You must have a beast out to use this. beast.stf 9 beast_buff_use Give Beast Dietary Supplement beast.stf 10 beast_buff_wrong_type This supplement doesnt work with this beast family. beast.stf 11 beast_cant_call_combat You cannot call your beast in combat. beast.stf 12 beast_cant_store "You cannot store your beast, while you are in combat." beast.stf 13 beast_cant_travel "You must pack up your droids, pets, mounts, and vehicles prior to traveling." beast.stf 14 beast_cant_travel_group One of your group members must pack up their pets prior to traveling. beast.stf 15 beast_cant_when_dead "You cannot do that, when your beast appears dead." beast.stf 16 beast_content Content beast.stf 17 beast_disobedient Disobedient beast.stf 18 beast_ecstatic Ecstatic beast.stf 19 beast_furious Furious beast.stf 20 beast_happy Happy beast.stf 21 beast_has_buff The beast has already taken a supplement. beast.stf 22 beast_joyous Joyous beast.stf 23 beast_loyal Loyal beast.stf 24 beast_loyalty_title Loyalty beast.stf 122 beast_master_use_only This tool may only be operated by a Beast Master beast.stf 25 beast_miserable Miserable beast.stf 26 beast_mood_title Mood beast.stf 27 beast_trained Trained beast.stf 28 beast_unhappy Unhappy beast.stf 29 beast_very_happy Very Happy beast.stf 30 beast_wild Wild beast.stf 31 bm_egg_d This is the end product of DNA core manipulation in an incubator. This egg is ready to hatch the creature cultivated inside. beast.stf 32 bm_egg_n An incubated egg beast.stf 33 cannot_transfer_bcd You cannot trade your beast once it has hatched from the egg. beast.stf 34 cant_call_level You cannot call beasts that are too powerful for you to handle (10 levels above your level). beast.stf 35 cant_call_maximum You have already called a beast. beast.stf 36 cant_pickup You may not pick up an incubator that has an active user! beast.stf 37 cant_transfer_too_many_stored "You can t transfer the beast, because that person has too many beasts already." beast.stf 38 cant_transfer_you_have_too_many "You can t receive that beast, because you have too many stored." beast.stf 39 centrifuge_runtime_info Centrifuge process will complete in %TO beast.stf 40 combiner_runtime_info Re-Processor will complete in %TO beast.stf 41 datapad_beast_added A beast control device has been added to your datapad! beast.stf 43 defensive_message Your beast is now %TT. beast.stf 44 dna_not_beast_master Only Beast Masters may extract DNA. beast.stf 45 dna_not_in_tutorial You may not harvest DNA while in the tutorial. beast.stf 46 dna_too_far You are too far to extract DNA. beast.stf 47 egg_hatch_mount Hatch your mount beast.stf 48 egg_make_mount Train Beast in Egg as a Mount beast.stf 49 egg_make_mount_prompt "Are you sure you want to do this? Once converted, you cannot go back. Mounts cannot be reprocessed back into DNA cores. Mounts do not take advantage of the new Beast Master skills." beast.stf 50 egg_make_mount_title Convert Egg into Mount? beast.stf 51 enzyme_extraction_success You have extracted a Hydrolases Enzyme beast.stf 52 enzyme_fail_already_harvested You have already extracted enzymes from this creature beast.stf 53 enzyme_fail_beast_not_dead This creature is not yet dead beast.stf 54 enzyme_fail_invalid_target Invalid target for extraction beast.stf 55 enzyme_fail_no_loot_permission You do not have permission to extract enzymes from this corpse beast.stf 56 enzyme_fail_target_is_pet You may only extract Hydrolases Enzymes from wild creatures beast.stf 57 enzyme_fail_target_not_monster Incorrect target type for this tool beast.stf 58 enzyme_fail_too_many_extractions No more Hydrolases Enzymes may be extracted from this corpse beast.stf 59 error_on_start There has been an unspecified error on startup. beast.stf 60 extract_type_3_enzyme Use Extractor beast.stf 61 fed_dislike Your companion eats the food substitute but does not like it beast.stf 62 fed_favorite Your companion seems very excited about eating this food sustenance. beast.stf 63 fed_normal Your companion accepts this sustenance as a food source. beast.stf 64 get_time_to_finish Time Remaining beast.stf 42 god_complete_in_10 God Mode 10 Second Cycle beast.stf 65 god_hatch_egg GOD MODE Hatch Egg with Dummy Data beast.stf 66 hatch_egg Hatch Egg beast.stf 67 incubator_activate_text You are about to activate this incubator. This will also cancel any experiments in any other incubators you are the active user of. Are you sure you wish to activate this incubator? beast.stf 68 incubator_activate_title Activate Incubator beast.stf 69 incubator_activated "This incubator unit has been activated, you may incubate creatures within it." beast.stf 70 incubator_already_active This incubator is already active to someone else! beast.stf 71 incubator_cleanse_fail Only the person who activated this Incubator may cleanse it. beast.stf 72 incubator_cleanse_text "This will end your current experiment, all materials and DNA will be lost. The incubator must be re-activated before another experiment is started. Are you sure you wish to end your current experiement?" beast.stf 73 incubator_cleanse_title Cleanse Incubator beast.stf 74 incubator_cleansed This incubator unit has been cleansed of the previous experiment and must now be re-activated before starting another experiment. beast.stf 75 incubator_cooldown_reset Your incubator usage cooldown has been reset. beast.stf 76 incubator_home_owner_cleanse "As the owner of the structure you may cleanse this incubator and then pick it up, however this will end the current experiment inside and all materials and DNA will be lost. The incubator must be re-activated before another experiment is started. Are you sure you wish to end the current experiement?" beast.stf 77 incubator_not_activated This incubator unit failed to initalize. beast.stf 78 incubator_not_yours This incubator unit is not activated to you. beast.stf 79 incubator_open Open Incubator beast.stf 121 invalid_target_for_creature_knowledge You cannot perform Creature Knowledge on that target beast.stf 80 location_dislike Your companion seems unhappy about being on this planet. beast.stf 81 location_favorite Your companion seems very excited about being on this planet. beast.stf 82 loyalty_gained Your companion has gained a level of Loyalty. beast.stf 83 loyalty_lost Your companion has lost a level of Loyalty. beast.stf 84 maximum_combat_control_devices "You cannot hatch an egg due to having too many pets, droids, and beasts in your datapad." beast.stf 85 menu_feed Feed Companion beast.stf 86 name_beast Name Beast beast.stf 87 name_d "Enter your beast s name, although keep in mind it cannot exceed 40 characters and not be a reserved name." beast.stf 88 name_t Enter Beast Name beast.stf 89 name_too_long That beast name is too long. The length of the name cannot exceed 40 characters. beast.stf 90 name_too_short That name is too short. You must have at least three characters in the name. beast.stf 91 no_beast_to_feed You need to have a companion called out to feed this sustenance. beast.stf 92 no_hatch_while_dead You cannot hatch an egg while dead or incapacitated. beast.stf 93 not_active_user You are not the active user of this Incubator! beast.stf 94 not_beast_master You are not a Beast Master! beast.stf 95 pet_hungry Your companion seems to be hungry. beast.stf 96 player_no_known_skills You do not know any abilities to train your pet beast.stf 97 processor_runtime_info Element Processor will complete in %TO beast.stf 98 session_in_progress You cannot pickup an incubator that has an active experiment in progress. beast.stf 99 start_centrifuge Start Centrifuge beast.stf 100 start_combiner Start Re-Processor beast.stf 101 start_processor Start Element Processor beast.stf 102 stop_centrifuge Stop Centrifuge beast.stf 103 stop_combiner Stop Re-Processor beast.stf 104 stop_processor Stop Element Processor beast.stf 105 stored Your beast has been stored. beast.stf 106 trail_fail_spam_single_skill_max Ability Level Too High beast.stf 107 train_fail_already_known \#00FF00 %TU - Already Trained\#. beast.stf 108 train_fail_bad_pet_type_for_ability \#996600 %TU - Invalid for Pet Type\#. beast.stf 109 train_fail_beastmaster_only Only beastmasters may train pets beast.stf 110 train_fail_insufficient_points \#AAAAAA %TU - Insufficient Training Points\#. beast.stf 111 train_fail_invalid_pet You must have a creature out to train. beast.stf 112 train_fail_no_slots \#FFCC00 %TU - Max Abilities Trained\#. beast.stf 113 train_fail_single_skill_max \#663300 %TU - Ability Level Too High\#. beast.stf 114 train_fail_spam_already_known Already Trained beast.stf 115 train_fail_spam_bad_pet_type Invalid for Pet Type beast.stf 116 train_fail_spam_insufficient_points Insufficient Training Points beast.stf 117 train_fail_spam_no_slots Max Abilities Trained beast.stf 118 train_success_new_ability You have trained your pet with a new ability! %TU beast.stf 119 train_sui_heading Select the ability to train your pet beast.stf 120 train_sui_title Train Pet
https://w.atwiki.jp/xboxonescore/pages/24.html
LEGO Marvel Super Heroes 項目数:45 総ポイント:1000 難易度 XBOX360 実績解除スレまとめ @wiki http //www12.atwiki.jp/xbox360score/pages/2122.html 「Don t I Know You?」の解除に2コンが必須。 Sand Central Station Completed Level 1 - Sand Central Station 20 Times Square Off Completed Level 2 - Times Square Off 20 Exploratory Laboratory Completed Level 3 - Exploratory Laboratory 20 Rock up at the Lock up Completed Level 4 - Rock up at the Lock up 20 Rebooted, Resuited Completed Level 5 - Rebooted, Resuited 20 Red Head Detention Completed Level 6 - Red Head Detention 20 Bifrosty Reception Completed Level 7 - Bifrosty Reception 20 Juggernauts and Crosses Completed Level 8 - Juggernauts and Crosses 20 Doctor in the House Completed Level 9 - Doctor in the House 20 That Sinking Feeling Completed Level 10 - That Sinking Feeling 20 Taking Liberties Completed Level 11 - Taking Liberties 20 Rapturous Rise Completed Level 12 - Rapturous Rise 20 Magnetic Personality Completed Level 13 - Magnetic Personality 20 A Doom with a View Completed Level 14 - A Doom with a View 20 The Good, the Bad and the Hungry Completed Level 15 - The Good, the Bad and the Hungry 20 Falling... with Style Complete first Helicarrier skydive 20 Don t I Know You? Teamed up Captain America with Human Torch (Co-op) 20 Stan-tastic Rescued Stan Lee from every peril (Single Player) 30 Road Rage Destroyed 100 vehicles in the Manhattan hub 20 It s Clobberin Time! Defeated 100 enemies as the Thing 20 I m Always Angry! Transformed into the Hulk 50 times 20 Billionaire Philanthropist Collected 1,000,000,000 studs (Single Player) 40 This Is fantastic! Turned Mister Fantastic into a teapot for the first time 20 You Win a No-Prize! Completed game 100% (Single Player) 40 Avengers Assembled Collected all Avengers characters in the game (Single Player) 50 Sinister Six Collected Doc Ock, Sandman, Mysterio, Kraven the Hunter, Electro and Vulture (Single Player) 20 To Me, My X-Men Collected all traditionally heroic mutants (Single Player) 20 Brotherhood Collected all traditionally evil mutants (Single Player) 20 I Am Iron Man Collected all Iron Man armors (Single Player) 20 Stan s Soapbox Turned into Stan Hulk 20 Post-Credit Party Completed House Party Protocol 50 The Toast of Croydon Created a character called “Trevor” in the character customizer 20 Puny God Performed Hulk s special move on Loki 20 Welcome to Level 7 Played as Agent Coulson 20 It s Me Time! Read a comic in Deadpool s room on the Helicarrier 20 Bad Luck? Unlocked Black Cat (Single Player) 20 Zoo Believer Unlocked all animal-themed characters (Single Player) 30 Guardians of the Galaxy Unlocked all the Guardians of the Galaxy (Single Player) 20 Fastball Special Performed a special throwing move as Colossus on Wolverine 20 Menace of Magneto Drove to the Baxter Building as Magneto in the Magneto Mobile 20 Alter Ego Performed all big LEGO figure transformations 20 Can t Hurt Me Bub Regenerated as Wolverine 10 Cosplay Created a custom character 20 Ultimate True Believer Unlocked all True Believers (Single Player) 20 Really? Collected Howard the Duck (Single Player) 10
https://w.atwiki.jp/xbox360score/pages/1063.html
LEGO Harry Potter YEARS 1-4 項目数:36 総ポイント:1000 難易度:★★☆☆☆ 実績コンプまでの所要時間は30~40時間.チートコード使用による実績解除への影響は無し. 従来のLEGOシリーズ同様にとにかく収集物の数が膨大、特にStudents in PerilはExtraによる探索対象外であるため各自でメモ推奨。 cheatコード一覧 http //www.ign.com/cheats/games/lego-harry-potter-years-1-4-wii-14329935 Junior Complete Year One Story Levels 50 Senior Complete Year Two Story Levels 50 Prefect Complete Year Three Story Levels 50 Head Boy Complete Year Four Story Levels 50 Teacher s pet Complete All Story Lessons (Single Player Only) 70 Story Complete! Complete the Story Levels in all four years 70 Crest Collector Collect all of the house crests in Year 1 (Single Player Only) 30 Crest Fanatic Collect all of the house crests in Year 2 (Single Player Only) 30 Ultra Collector Collect all of the house crests in Year 3 (Single Player Only) 30 The Ultimate Collector Collect all of the house crests in Year 4 (Single Player Only) 30 Power Up! Collect all of the Red Bricks (Single Player Only) 45 The Bonus Level is Yours Collect all of the Gold Bricks (Single Player Only) 70 Student Rescue Rescue all students in peril (Single Player Only) 45 Stud Magnet Get True Wizard in every level (Single Player Only) 30 You re the Best Complete the game to 100% (Single Player Only) 70 Dark Wizards Buy every version of Voldemort (Quirrell/Tom Riddle/Voldemort) (Single Player Only) 10 Quidditch Team Buy the entire Gryffindor Quidditch team from Book One (Single Player Only) 10 Back in Time Use the Time-Turner 10 Building Blocks Complete all the LEGO Builder tutorial levels (Single Player Only) 30 Good Dog Defeat 20 enemies with Fang 10 Wonderful Weasleys Buy the entire Weasley family (Single Player Only) 10 Quirrell Quandary Defeat Quirrell in the Quirrell boss fight, using Voldemort 15 Multiplier Collect 10 million studs in one level (Single Player Only) 10 Arachnophobic Defeat 20 spiders with Ron 10 Chilled out Freeze 20 characters using Glacius 10 Boo! Scare 20 students using a ghost character 10 Animagus Unlock all Animagi (Single Player Only) 10 Defeating the Object Defeat the mountain troll, using Quirrell 15 Watch Out! Knock over ten characters using a ride-able object 15 Solid Snape Hide in a barrel as Snape 15 Role Reversal Defeat Harry (as Voldemort), in the Graveyard 15 Quiet Please! Turn the sound and music down to 0 in the options menu whilst in the library 15 Muggle Trouble Defeat 10 enemies with a Muggle character 15 Lumos Solem Destroy 50 Devil s Snare plants 15 Quick Quidditch Complete the Quidditch level within five minutes 15 Ghostly Treasure Collect 500 ghost studs 15 ●The Bonus Level is Yours(Gold Brickを200個すべて集める) バグあり。clock towerにてGold Brickを手に入れる前にRed Brickを手に入れると、Gold Brickが手に入らなくなる。このバグに会うと、この実績はもちろんYou re the Best、Quirrell Quandaryなども解除できなくなる。従ってclock towerでは先にGold Brickを手に入れること。 ●You re the Best ゲーム中スタートボタンで表示される進捗率が100%になると解除.下記項目を満たせばOK. Year1~4の全24レベルをクリア フリープレイモードでストーリモード全24レベルを再プレイ ※収集物を回収するだけなのでレベルをクリアする必要は無い。 全ストーリレッスンを完了 全ボーナスレベルとチュートリアルを完了 Gold Bricksを200個収集 Red Bricksを20個収集(チートコードによる補完可能) Students in Perilを50人救助 character tokenを全て収集しストアで全キャラクターを購入 House Crestsを24個完成(クレストの欠片は24×4=96個) ストアで全スペルを購入 ●Building Blocks LEGO Builderのチュートリアル4つを全て完了すると解除. チュートリアルはGringotts Bankでプレイ可能 ●Quirrell Quandary 操作キャラをVoldemortにしてYear1-6ボスを倒すことで解除 VoldemortはGold Bricks200個コンプ後、Knockturn Alleyの奥にある店から入れるレベルをクリア後アンロックされる。 ●Multiplier 1つのレベルプレイ中に10,000,000個のstudsを回収で解除. チートコード or Red BricksによるStuds倍率ボーナスの併用可能. ●Arachnophobic 操作キャラはRon,2-5のボスでクモが無限湧きするため簡単に解除可能. ●Defeating the Object 操作キャラはQuirrellで1-2ラストのトロルを倒すと解除. ●Solid Snape 操作キャラはSnapeで1-1開始直後のストリートにある樽に隠れることで解除。 ●Role Reversal 操作キャラをLord Voldemort、2P側はハリーにして、4-6の最初の庭園を抜け、墓地でスペル"Avada Kedavra"を使い ハリーを倒すと解除。Avada Kedavraは緑色のドクロマークアイコンのスペル。 ●Quiet Please! ホグワーツ内図書館でオプションメニューからサウンドとミュージックボリュームを0に設定すると解除. ●Muggle Trouble Station GuardやMilkman、犬など、直接攻撃しか出来ないキャラクターで敵を10体倒すと解除。 ●Quick Quidditch Year1 "A Jinxed Broom"を5分以内にクリアすることで解除. フリープレイで収集物を無視すれば簡単に解除可能. ●Ghostly Treasure 道案内してくれる幽霊キャラが落とす半透明のstudsを500個集めると解除. この実績のみストーリモード終了後に解除不可能となるため注意. ただし意識しなくてもYear2前後で自然と解除されるレベル. ●コレクタブル系 Lego Harry Potter - Collectables Guide Lego Harry Potter Years 1-4 Collectibles Guide ※ホグワーツのマップが掲載されているので、収集ガイドと併用すると便利。 オプションメニューのExtraにある各種Detectorが助けとなるものの数が莫大、 前述の通りStudents in PerilはDetectorが対応していないため、ホグワーツ内で救出できる26人については個別でのメモを推奨。 ●Quidditch Team 該当するのはOliver Wood、Angelina Johnson、Katie Bell、Alicia Spinnet、Fred Weasley、George Weasley、およびHarry Potterである。 解除するにはQuidditch Teamバージョンのみの購入でよい。条件を満たしても解除されない報告あり。
https://w.atwiki.jp/metalmetabo/pages/26.html
- visitors Combining pathway analysis with flux balance analysis for the comprehensive study of metabolic systems slu.edu [PDF]… JS Edwards, D Letscher, BØ Palsson - Biotechnology and …, 2000 - interscience.wiley.com http //scholar.google.com/scholar?q=related HtFdZ3DFTgMJ scholar.google.com/ hl=ja as_sdt=2000 ... dimensional space. From metabolic pathway analysis, the edges of the high-dimensional flux cone are vectors that correspond to sys- temically defined “extreme pathways” spanning the ca- pabilities of the system. The addition ... Metabolic pathway analysis of yeast strengthens the bridge between transcriptomics and metabolic networks T Çakir, B Kirdar, KÖ Ülgen - Biotechnology and …, 2004 - Wiley Online Library http //scholar.google.com/scholar?q=related cUtrabByB40J scholar.google.com/ hl=ja as_sdt=2000 Abstract Central carbon metabolism of the yeast Saccha- romyces cerevisiae was analyzed using metabolic pathway analysis tools. Elementary flux modes for three substrates (glucose, galactose, and ethanol) were determined using the catabolic reactions ... Metabolic pathway analysis for rational design of L-methionine production by Escherichia coli and Corynebacterium glutamicum JO Krömer, C Wittmann, H Schröder, E Heinzle - Metabolic engineering, 2006 - Elsevier http //scholar.google.com/scholar?q=related KSxlsQoF_oIJ scholar.google.com/ hl=ja as_sdt=2000 Metabolic pathway analysis was carried out to predict the metabolic potential of Corynebacterium glutamicum and Escherichia coli for the production of L-methionine. Based on detailed stoichiometric models for these organisms, this allowed the calculation of the theoretically optimal ... The genome-scale metabolic extreme pathway structure in Haemophilus influenzae shows significant network redundancy JA Papin, ND Price, JS Edwards, BØ … - Journal of theoretical …, 2002 - Elsevier http //scholar.google.com/scholar?q=related KrUkw9kndisJ scholar.google.com/ hl=ja as_sdt=2000 ... 229–248. Abstract | PDF (428 K) | View Record in Scopus | Cited By in Scopus (198). 19. CHSCHILLING, S. SCHUSTER, BO PALSSON and R. HEINRICH, Metabolic pathway analysis basic concepts and scientific applications in the post-genomic era. Biotechnol. Prog. ... Potential drug targets in Mycobacterium tuberculosis through metabolic pathway analysis psu.edu [PDF]S Anishetty, M Pulimi, G Pennathur - Computational Biology and …, 2005 - Elsevier http //scholar.google.com/scholar?q=related hEJbAmAPhwkJ scholar.google.com/ hl=ja as_sdt=2000 The emergence of multidrug resistant varieties of Mycobacterium tuberculosis has led to a search for novel drug targets. We have performed an insilico comparative analysis of metabolic pathways of the host Homo sapiens and the pathogen M. tuberculosis. Enzymes from the ... In silico metabolic pathway analysis and design succinic acid production by metabolically engineered Escherichia coli as an example jsbi.org [PDF]SY Lee, SH Hong, SY Moon - GENOME INFORMATICS SERIES, 2002 - jsbi.org http //scholar.google.com/scholar?q=related 6Ehoy39R1HUJ scholar.google.com/ hl=ja as_sdt=2000 Abstract The intracellular metabolic fluxes can be calculated by metabolic flux analysis, which uses a stoichiometric model for the intracellular reactions along with mass balances around the intra- cellular metabolites. In this study, we have constructed in silico metabolic pathway ... Determination of redundancy and systems properties of the metabolic network of Helicobacter pylori using genome-scale extreme pathway analysis cshlp.org [HTML]ND Price, JA Papin, BØ Palsson - Genome Research, 2002 - genome.cshlp.org http //scholar.google.com/scholar?q=related hyQpOmehsTYJ scholar.google.com/ hl=ja as_sdt=2000 Metabolic pathway analysis in trypanosomes and malaria parasites. nih.gov [PDF]AH Fairlamb - Philosophical Transactions of the Royal Society B …, 2002 - ncbi.nlm.nih.gov http //scholar.google.com/scholar?q=related x44FtcJTlQwJ scholar.google.com/ hl=ja as_sdt=2000 Identification of novel drug targets is required for the development of new classes of drugs to overcome drug resistance and replace less efficacious treatments. In theory, knowledge of the entire genome of a pathogen identifies every potential drug target in any given microbe. ... A general definition of metabolic pathways useful for systematic organization and analysis of complex metabolic networks uni-erlangen.de [PDF]S Schuster, DA Fell, T Dandekar - Nature biotechnology, 2000 - nature.com http //scholar.google.com/scholar?q=related 4GmcRTKIXlwJ scholar.google.com/ hl=ja as_sdt=2000 ... Trends Biotechnol. 17, 53–60(1999). | Article | PubMed | ISI | ChemPort |; Schilling, CH, Schuster, S., Palsson, BO Heinrich R. Metabolic pathway analysis basic concepts and scientific applications in the post-genomic era. Biotechnol. Prog. 15, 296–303 (1999). ...
https://w.atwiki.jp/tanaka_lol/pages/14.html
メリット デメリット 具体的には JungleMAP なぜjunglingが必要なのか? まずjunglingでできることを整理してみる。 メリット 序盤から中盤にかけてのjunglingするとduo laneより早くlvlが上がる。 jungleに行くことによってsolo laneが二つできて味方全体のlvlが早く上がる 敵に視界を取られてないのでプレッシャーをかけることができる どのレーンにもgangにいける どのレーンのカバーもできる 早いタイミングでドラゴンやバロンを倒すことができる レーンにいるとつらいチャンプが安全に稼げる 早い段階でワードを買える デメリット 2vs1のレーンができてしまう可能性がある jungle潰しにあってしまう可能性がある 2vs1はできるチャンプとできないチャンプがいるので選択の幅が狭くなる しかし、基本的に2vs1できるチャンプは強いので問題ないだろう。 jungle潰しに関してだが、jungleを潰しに来てる敵も成長が遅れてるので 倒されない限りそこまで問題は無いだろう。 具体的には gangが成功してタワーを割り切ることもできるかもしれないし、味方がきつくてリコールして レーンに誰もいなくなってもカバーに入れば経験値やお金を無駄にしなくてすむ そもそもjungling自体も自陣の資源を無駄にしないためである 序盤でレーンから離れてしまうとlvlの上がりが遅くなるが、中立クリープのリスポンを待ってる間にワードをおきにいける(マップコントロールができる) gang性能が高いチャンピョンがgangする時間が増える。 solo jungle duo lane lvlの上がり方はといった感じ。 2vs1ができるチャンプがいて、duo laneより早くlvlが上がって、マップコントロールができて、gangができて、カバーができて もはややらない理由が無いのではないだろうか。 よくjunglerのgangに期待する人がいるが、rammus xin shaco 等のgang専門のjunglerでない限りjungleが遅くなってしまうので 過度な期待はしないようにしよう。 gangにいけるjunglerはある程度スピードが速いか、gangが強いかのどちらか。 WW fiddle等はjungleを狩ってもヘルスがあまり減らずに、クリープの沸きが暇なのでgangいける。 amumu trynd popppy等レーンよりjungleの方が安全に稼げるが、スピードもヘルスもきついチャンプはlvl6になってからじゃないとgangがつらい。 そもそもgangが必要なレーン配置はnoobってことですね。 JungleMAP
https://w.atwiki.jp/akbdata/pages/994.html
所属事務所 https //jpop.co.jp 花島大義 和田春 読み ハナジマ ヒロヨシ ワダ ハル 生年月日 1976年2月29日 出身 宮城県仙台市 Wikipedia 和田春 提供リスト 2016年11月30日 二人セゾン(欅坂46 3rd single) 共作曲 誰よりも高く跳べ!(けやき坂46) 2019年5月29日 Sing Out!(乃木坂46 23rd single) 作曲 編曲 曖昧 2019年7月17日 ドレミソラシド(日向坂46 2nd single) 作曲 編曲 My god J-POP
https://w.atwiki.jp/t-style/pages/20.html
ここを編集 書籍 強化学習(ISBN 978-4627826618) 強化学習といえばという本。学生時代に一番お世話になった思い出深い本。学校の図書館でこの本を読まなかったら今の自分はなかっただろう。英語版はフリーで公開されています。MCMC、Actor-Critic、TD、SARSA、Q、TD(λ)、SARSA(λ)などの各種アルゴリズムが網羅されている。ただ、Profit-Sharingの扱いはなかったはず。 パターン認識と機械学習(ISBN 上巻 978-4431100133、下巻 978-4431100317) 略してPRML。黄色い本。強化学習があんまり現実問題に適用するチャンスがなさそうなので、使えそうなほかの分野を開拓しようと購入。上巻が出てから下巻が出るまで本当に待ち遠しかった。線形回帰、線形識別、SVM、メッセージパッシング、EM、変分ベイズ(VB)、隠れマルコフ(HMM)などなど、昨今人気の統計的学習に関する有名な本の訳本。まだまだ勉強中。訳していただいて本当に感謝感激。 確率ロボティクス(ISBN 978-4839924010) 確率ベースの自己位置推定、SLAMを説明。勉強不足からか読み進めきれない部分もあるけど、絵が多くて直感的にはわかる。こういった分野を解説してくれている和本はあんまりない気もする。というか、もうプレミア化しているような。 計算統計I 確率計算の新しい手法(ISBN 978-4000068512) ブートストラップ、超一様分布、変分ベイズの3テーマについて著名な方々が記載している。まだ、ブートストラップの一部位しか読めていない。。ちなみに、変分ベイズに関しては日本随一のCS研上田先生によるもの。 計算統計Ⅱ マルコフ連鎖モンテカルロ法とその周辺(ISBN 978-4000068529) 伊庭先生によるMCMC本。遺伝的アルゴリズムと逐次モンテカルロ法の関係性が知りたくて、実はずいぶん昔に購入していたが、いまだに読み切れない。。 技術系のWebサイト 朱鷺の杜Wiki http //ibisforest.org/index.php?FrontPage 学会 信学会 http //www.ieice.org/jpn/index.html 情報処理学会 http //www.ipsj.or.jp/ 人工知能学会 http //www.ai-gakkai.or.jp/jsai/ 知能情報ファジィ学会 http //wwwsoc.nii.ac.jp/soft/ SICE http //www.sice.or.jp/ ICML http //www.machinelearning.org/ NIPS http //nips.djvuzone.org/ AAAI http //www.aaai.org/home.html JMLR http //jmlr.csail.mit.edu/ プログラミング関連 Scipy pythonの強力な数値計算ライブラリです。 http //docs.scipy.org/doc/scipy/reference/ つくばチャレンジ 公式 http //www.ntf.or.jp/challenge/ チームホームページ http //palab.sakura.ne.jp/tsukuba/pukiwiki/
https://w.atwiki.jp/ce00582/pages/900.html
Function myeselect(s1 As Single, s2 As Single, th1, th2, n1 As Single, n2 As Single, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single Dim i As Single Dim j As Single maxu = -999 For m1 = 0 To 10 c1 = c(m1, 9, n1) my = y1(m1) fy = y2(9) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m1 If u1 maxu Then maxu = u1 Next For m1 = 0 To 10 c1 = c(m1, 10, n2) my = y1(m1) fy = y2(10) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m1 If u1 maxu Then maxu = u1 Next myeselect = maxm End Function Function myfselect(s1 As Single, s2 As Single, th1, th2, n1 As Single, n2 As Single, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single Dim i As Single Dim j As Single maxu = -999 For m1 = 0 To 10 c1 = c(m1, 0, n1) my = y1(m1) fy = y2(0) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m1 If u1 maxu Then maxu = u1 Next For m1 = 0 To 10 c1 = c(m1, 1, n2) my = y1(m1) fy = y2(1) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m1 If u1 maxu Then maxu = u1 Next myfselect = maxm End Function Function fyfselect(s1 As Single, s2 As Single, th1, th2, n1 As Single, n2 As Single, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single Dim i As Single Dim j As Single maxu = -999 For m1 = 0 To 10 c1 = c(m1, 0, n1) my = y1(m1) fy = y2(0) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = 0 If u1 maxu Then maxu = u1 Next For m1 = 0 To 10 c1 = c(m1, 1, n2) my = y1(m1) fy = y2(1) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = 1 If u1 maxu Then maxu = u1 Next fyfselect = maxm End Function Function fyeselect(s1 As Single, s2 As Single, th1, th2, n1 As Single, n2 As Single, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single Dim i As Single Dim j As Single maxu = -999 For m1 = 0 To 10 c1 = c(m1, 9, n1) my = y1(m1) fy = y2(9) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = 9 If u1 maxu Then maxu = u1 Next For m1 = 0 To 10 c1 = c(m1, 10, n2) my = y1(m1) fy = y2(10) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = 10 If u1 maxu Then maxu = u1 Next fyeselect = maxm End Function Function fprefer(s1 As Single, s2 As Single, th1, th2, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single maxu = -999 For m1 = 0 To 10 For m2 = 0 To 10 c1 = c(m1, m2) my = y1(m1) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m2 If u1 maxu Then maxu = u1 Next Next fprefer = maxm End Function Function fyselect(s1 As Single, s2 As Single, th1, th2, m2 As Single, n1 As Single, n2 As Single, n3 As Single, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single Dim i As Single Dim j As Single maxu = -999 For m1 = 0 To 10 c1 = c(m1, m2 - 1, n1) my = y1(m1) fy = y2(m2 - 1) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m2 - 1 If u1 maxu Then maxu = u1 Next For m1 = 0 To 10 c1 = c(m1, m2, n2) my = y1(m1) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m2 If u1 maxu Then maxu = u1 Next For m1 = 0 To 10 c1 = c(m1, m2 + 1, n3) my = y1(m1) fy = y2(m2 + 1) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m2 + 1 If u1 maxu Then maxu = u1 Next fyselect = maxm End Function Function myselect(s1 As Single, s2 As Single, th1, th2, m2 As Single, n1 As Single, n2 As Single, n3 As Single, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single Dim i As Single Dim j As Single maxu = -999 For m1 = 0 To 10 c1 = c(m1, m2 - 1, n1) my = y1(m1) fy = y2(m2 - 1) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m1 If u1 maxu Then maxu = u1 Next For m1 = 0 To 10 c1 = c(m1, m2, n2) my = y1(m1) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m1 If u1 maxu Then maxu = u1 Next For m1 = 0 To 10 c1 = c(m1, m2 + 1, n3) my = y1(m1) fy = y2(m2 + 1) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m1 If u1 maxu Then maxu = u1 Next myselect = maxm End Function Function mfselect(s1 As Single, s2 As Single, th1, th2, n1 As Single, n2 As Single, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single Dim i As Single Dim j As Single maxu = -999 For m2 = 0 To 10 c1 = c(0, m2, n1) my = y1(0) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = 0 If u1 maxu Then maxu = u1 Next For m2 = 0 To 10 c1 = c(1, m2, n2) my = y1(1) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = 1 If u1 maxu Then maxu = u1 Next mfselect = maxm End Function Function meselect(s1 As Single, s2 As Single, th1, th2, n1 As Single, n2 As Single, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single Dim i As Single Dim j As Single maxu = -999 For m2 = 0 To 10 c1 = c(9, m2, n1) my = y1(9) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = 9 If u1 maxu Then maxu = u1 Next For m2 = 0 To 10 c1 = c(10, m2, n2) my = y1(10) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = 10 If u1 maxu Then maxu = u1 Next meselect = maxm End Function Function feselect(s1 As Single, s2 As Single, th1, th2, n1 As Single, n2 As Single, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single Dim i As Single Dim j As Single maxu = -999 For m2 = 0 To 10 c1 = c(9, m2, n1) my = y1(9) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m2 If u1 maxu Then maxu = u1 Next For m2 = 0 To 10 c1 = c(10, m2, n2) my = y1(10) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m2 If u1 maxu Then maxu = u1 Next feselect = maxm End Function Function ffselect(s1 As Single, s2 As Single, th1, th2, n1 As Single, n2 As Single, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single Dim i As Single Dim j As Single maxu = -999 For m2 = 0 To 10 c1 = c(0, m2, n1) my = y1(0) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m2 If u1 maxu Then maxu = u1 Next For m2 = 0 To 10 c1 = c(1, m2, n2) my = y1(1) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m2 If u1 maxu Then maxu = u1 Next ffselect = maxm End Function Function u(s1 As Single, s2 As Single, th1, th2, cp As Single, yp1 As Single, yp2 As Single) As Single Dim lx As Single Dim cx As Single Dim px As Single l1 = yp1 / th1(s1) l2 = yp2 / th2(s2) cx = cp px = 0 If cx 0.01 Then px = 1 If l1 0.99 Then px = 1 If l2 0.99 Then px = 1 If l1 0 Then px = 1 If l2 0 Then px = 1 If px = 1 Then cx = 0.5 If px = 1 Then l1 = 0.5 If px = 1 Then l2 = 0.5 ux = Log(cx) + Log(1 - l1) + Log(1 - l2) If px = 1 Then ux = -999 u = ux End Function Function fselect(s1 As Single, s2 As Single, th1, th2, m1 As Single, n1 As Single, n2 As Single, n3 As Single, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single Dim i As Single Dim j As Single maxu = -999 For m2 = 0 To 10 c1 = c(m1 - 1, m2, n1) my = y1(m1 - 1) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m2 If u1 maxu Then maxu = u1 Next For m2 = 0 To 10 c1 = c(m1, m2, n2) my = y1(m1) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m2 If u1 maxu Then maxu = u1 Next For m2 = 0 To 10 c1 = c(m1, m2, n3) my = y1(m1 + 1) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m2 If u1 maxu Then maxu = u1 Next fselect = maxm End Function Function mselect(s1 As Single, s2 As Single, th1, th2, m1 As Single, n1 As Single, n2 As Single, n3 As Single, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single Dim i As Single Dim j As Single maxu = -999 For m2 = 0 To 10 c1 = c(m1 - 1, m2, n1) my = y1(m1 - 1) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m1 - 1 If u1 maxu Then maxu = u1 Next For m2 = 0 To 10 c1 = c(m1, m2, n2) my = y1(m1) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m1 If u1 maxu Then maxu = u1 Next For m2 = 0 To 10 c1 = c(m1, m2, n3) my = y1(m1 + 1) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m1 + 1 If u1 maxu Then maxu = u1 Next mselect = maxm End Function Function mprefer(s1 As Single, s2 As Single, th1, th2, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single maxu = -999 For m1 = 0 To 10 For m2 = 0 To 10 c1 = c(m1, m2) my = y1(m1) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m1 If u1 maxu Then maxu = u1 Next Next mprefer = maxm End Function Private Sub Command1_Click() Dim m1 As Single Dim m2 As Single Dim s1 As Single Dim s2 As Single Dim cp1 As Single Dim yp1 As Single Dim yp2 As Single Dim c(0 To 10, 0 To 10, -1 To 1) As Single Dim cs(0 To 10, 0 To 10) As Single Dim th1(1 To 10) As Single Dim th2(1 To 10) As Single Dim y1(0 To 10) As Single Dim y2(0 To 10) As Single Dim mgr(1 To 10, 1 To 10) As Single Dim fgr(1 To 10, 1 To 10) As Single Dim gu(1 To 9, -1 To 1, -1 To 1, -1 To 1) As Single Dim gb(1 To 9, -1 To 1, -1 To 1, -1 To 1) As Single Dim endu(-1 To 1, -1 To 1) As Single Dim fastb(-1 To 1, -1 To 1) As Single Dim endb(-1 To 1, -1 To 1) As Single Dim fastu(-1 To 1, -1 To 1) As Single Dim mgroup(0 To 10, 1 To 100) As Single Dim fgroup(0 To 10, 1 To 100) As Single Dim ngroup(0 To 10) As Single Dim v(0 To 9, -1 To 1, -1 To 1, -50 To 50) As Single Dim goton(0 To 9, -1 To 1, -1 To 1, -50 To 50) As Single Dim gotoq(0 To 9, -1 To 1, -1 To 1, -50 To 50) As Single Dim endv(-1 To 1, -1 To 1, -50 To 50) As Single Dim endq(-1 To 1, -1 To 1, -50 To 50) As Single Dim op(0 To 10) As Single Dim oq(0 To 10) As Single Dim i As Single Dim j As Single Dim h As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Open "c /lupin.txt" For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3 m1 = a1 m2 = a2 cs(m1, m2) = a3 Loop Close #2 For s = 1 To 10 th1(s) = 0.2 * s th2(s) = 0.1 * s Next For m = 0 To 10 y1(m) = 0.105 * m y2(m) = 0.05 * m Next t3 = 0 Do Until t3 5 h = 0.001 t1 = 0 Do Until t1 10 For m2 = 0 To 10 For s1 = 1 To 10 For s2 = 1 To 10 mgr(s1, s2) = mprefer(s1, s2, th1, th2, cs, y1, y2) fgr(s1, s2) = fprefer(s1, s2, th1, th2, cs, y1, y2) Next Next Next For m1 = 0 To 10 n = 0 For s1 = 1 To 10 For s2 = 1 To 10 If mgr(s1, s2) = m1 Then n = n + 1 If mgr(s1, s2) = m1 Then mgroup(m1, n) = s1 If mgr(s1, s2) = m1 Then fgroup(m1, n) = s2 Next Next ngroup(m1) = n Next For m1 = 0 To 10 For m2 = 0 To 10 For n = -1 To 1 c(m1, m2, n) = cs(m1, m2) + n * h Next Next Next For m1 = 1 To 9 For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 nu = ngroup(m1) us = 0 bs = 0 For s = 1 To nu s1 = mgroup(m1, s) s2 = fgroup(m1, s) i = mselect(s1, s2, th1, th2, m1, n1, n2, n3, c, y1, y2) j = fselect(s1, s2, th1, th2, m1, n1, n2, n3, c, y1, y2) nx = n2 If i = m1 - 1 Then nx = n1 If i = m1 + 1 Then nx = n3 cp1 = c(i, j, nx) yp1 = y1(i) yp2 = y2(j) u1 = u(s1, s2, th1, th2, cp1, yp1, yp2) us = us + u1 bs = bs + yp1 + yp2 - cp1 Next gu(m1, n1, n2, n3) = us gb(m1, n1, n2, n3) = bs Next Next Next Next For n1 = -1 To 1 For n2 = -1 To 1 nu = ngroup(0) us = 0 bs = 0 For s = 1 To nu s1 = mgroup(0, s) s2 = fgroup(0, s) i = mfselect(s1, s2, th1, th2, n1, n2, c, y1, y2) j = ffselect(s1, s2, th1, th2, n1, n2, c, y1, y2) nx = n1 If i = 1 Then nx = n2 cp1 = c(i, j, nx) yp1 = y1(i) yp2 = y2(j) u1 = u(s1, s2, th1, th2, cp1, yp1, yp2) us = us + u1 bs = bs + yp1 + yp2 - cp1 Next fastu(n1, n2) = us fastb(n1, n2) = bs Next Next For n1 = -1 To 1 For n2 = -1 To 1 nu = ngroup(10) us = 0 bs = 0 For s = 1 To nu s1 = mgroup(10, s) s2 = fgroup(10, s) i = meselect(s1, s2, th1, th2, n1, n2, c, y1, y2) j = feselect(s1, s2, th1, th2, n1, n2, c, y1, y2) nx = n2 If i = 9 Then nx = n1 cp1 = c(i, j, nx) yp1 = y1(i) yp2 = y2(j) u1 = u(s1, s2, th1, th2, cp1, yp1, yp2) us = us + u1 bs = bs + yp1 + yp2 - cp1 Next endu(n1, n2) = us endb(n1, n2) = bs Next Next For n1 = -1 To 1 For n2 = -1 To 1 For q = -50 To 50 v(0, n1, n2, q) = -999 Next Next Next For n1 = -1 To 1 For n2 = -1 To 1 q0 = fastb(0, 0) q1 = fastb(n1, n2) q = Int((q1 - q0) / h) pp = 0 If q 50 Then pp = 1 If q -50 Then pp = 1 If pp = 1 Then q = 0 v(0, n1, n2, q) = fastu(n1, n2) If pp = 1 Then v(0, n1, n2, q) = -999 Next Next For m1 = 1 To 9 For n1 = -1 To 1 For n2 = -1 To 1 For q = -50 To 50 vs = -999 For nx = -1 To 1 u1 = gu(m1, nx, n1, n2) q0 = gb(m1, 0, 0, 0) q1 = gb(m1, nx, n1, n2) qq = Int((q1 - q0) / h) qx = q - qq pp = 0 If qx 50 Then pp = 1 If qx -50 Then pp = 1 If pp = 1 Then qx = 0 v1 = u1 + v(m1 - 1, nx, n1, qx) If pp = 1 Then v1 = -999 If v1 vs Then nxs = nx If v1 vs Then qxs = qx If v1 vs Then vs = v1 Next v(m1, n1, n2, q) = vs goton(m1, n1, n2, q) = nxs gotoq(m1, n1, n2, q) = qxs Next Next Next Next For n1 = -1 To 1 For n2 = -1 To 1 For q = -50 To 50 u1 = endu(n1, n2) q0 = endb(0, 0) q1 = endb(n1, n2) qq = Int((q1 - q0) / h) qx = q - qq pp = 0 If qx 50 Then pp = 1 If qx -50 Then pp = 1 If pp = 1 Then qx = 0 v1 = u1 + v(9, n1, n2, qx) If pp = 1 Then v1 = -999 endv(n1, n2, q) = v1 endq(n1, n2, q) = qx Next Next Next maxv = -999 For n1 = -1 To 1 For n2 = -1 To 1 For q = 0 To 50 If endv(n1, n2, q) maxv Then nx1 = n1 If endv(n1, n2, q) maxv Then nx2 = n2 If endv(n1, n2, q) maxv Then qx = q If endv(n1, n2, q) maxv Then maxv = endv(n1, n2, q) Next Next Next op(9) = nx1 op(10) = nx2 oq(10) = qx oq(9) = endq(op(9), op(10), oq(10)) For j = 1 To 9 m1 = 9 - j op(m1) = goton(m1 + 1, op(m1 + 1), op(m1 + 2), oq(m1 + 1)) oq(m1) = gotoq(m1 + 1, op(m1 + 1), op(m1 + 2), oq(m1 + 1)) Next For m1 = 0 To 10 For m2 = 0 To 10 cs(m1, m2) = c(m1, m2, op(m1)) Next Next e = 0 For m1 = 0 To 9 e = e + op(m1) ^ 2 Next If e 2 Then h = h / 2 If h 10 ^ (-5) Then t1 = 1000 Debug.Print t1, e, maxv t1 = t1 + 1 Loop h = 0.001 t2 = 0 Do Until t2 10 For s1 = 1 To 10 For s2 = 1 To 10 mgr(s1, s2) = mprefer(s1, s2, th1, th2, cs, y1, y2) fgr(s1, s2) = fprefer(s1, s2, th1, th2, cs, y1, y2) Next Next For m2 = 0 To 10 n = 0 For s1 = 1 To 10 For s2 = 1 To 10 If fgr(s1, s2) = m2 Then n = n + 1 If fgr(s1, s2) = m2 Then mgroup(m2, n) = s1 If fgr(s1, s2) = m2 Then fgroup(m2, n) = s2 Next Next ngroup(m2) = n Next For m1 = 0 To 10 For m2 = 0 To 10 For n = -1 To 1 c(m1, m2, n) = cs(m1, m2) + n * h Next Next Next For m2 = 1 To 9 For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 nu = ngroup(m2) us = 0 bs = 0 For s = 1 To nu s1 = mgroup(m2, s) s2 = fgroup(m2, s) i = myselect(s1, s2, th1, th2, m2, n1, n2, n3, c, y1, y2) j = fyselect(s1, s2, th1, th2, m2, n1, n2, n3, c, y1, y2) nx = n2 If j = m2 - 1 Then nx = n1 If j = m2 + 1 Then nx = n3 cp1 = c(i, j, nx) yp1 = y1(i) yp2 = y2(j) u1 = u(s1, s2, th1, th2, cp1, yp1, yp2) us = us + u1 bs = bs + yp1 + yp2 - cp1 Next gu(m2, n1, n2, n3) = us gb(m2, n1, n2, n3) = bs Next Next Next Next For n1 = -1 To 1 For n2 = -1 To 1 nu = ngroup(0) us = 0 bs = 0 For s = 1 To nu s1 = mgroup(0, s) s2 = fgroup(0, s) i = myfselect(s1, s2, th1, th2, n1, n2, c, y1, y2) j = fyfselect(s1, s2, th1, th2, n1, n2, c, y1, y2) nx = n1 If j = 1 Then nx = n2 cp1 = c(i, j, nx) yp1 = y1(i) yp2 = y2(j) u1 = u(s1, s2, th1, th2, cp1, yp1, yp2) us = us + u1 bs = bs + yp1 + yp2 - cp1 Next fastu(n1, n2) = us fastb(n1, n2) = bs Next Next For n1 = -1 To 1 For n2 = -1 To 1 nu = ngroup(10) us = 0 bs = 0 For s = 1 To nu s1 = mgroup(10, s) s2 = fgroup(10, s) i = myeselect(s1, s2, th1, th2, n1, n2, c, y1, y2) j = fyeselect(s1, s2, th1, th2, n1, n2, c, y1, y2) nx = n2 If j = 9 Then nx = n1 cp1 = c(i, j, nx) yp1 = y1(i) yp2 = y2(j) u1 = u(s1, s2, th1, th2, cp1, yp1, yp2) us = us + u1 bs = bs + yp1 + yp2 - cp1 Next endu(n1, n2) = us endb(n1, n2) = bs Next Next For n1 = -1 To 1 For n2 = -1 To 1 For q = -50 To 50 v(0, n1, n2, q) = -999 Next Next Next For n1 = -1 To 1 For n2 = -1 To 1 q0 = fastb(0, 0) q1 = fastb(n1, n2) q = Int((q1 - q0) / h) pp = 0 If q 50 Then pp = 1 If q -50 Then pp = 1 If pp = 1 Then q = 0 v(0, n1, n2, q) = fastu(n1, n2) If pp = 1 Then v(0, n1, n2, q) = -999 Next Next For m2 = 1 To 9 For n1 = -1 To 1 For n2 = -1 To 1 For q = -50 To 50 vs = -999 For nx = -1 To 1 u1 = gu(m2, nx, n1, n2) q0 = gb(m2, 0, 0, 0) q1 = gb(m2, nx, n1, n2) qq = Int((q1 - q0) / h) qx = q - qq pp = 0 If qx 50 Then pp = 1 If qx -50 Then pp = 1 If pp = 1 Then qx = 0 v1 = u1 + v(m2 - 1, nx, n1, qx) If pp = 1 Then v1 = -999 If v1 vs Then nxs = nx If v1 vs Then qxs = qx If v1 vs Then vs = v1 Next v(m2, n1, n2, q) = vs goton(m2, n1, n2, q) = nxs gotoq(m2, n1, n2, q) = qxs Next Next Next Next For n1 = -1 To 1 For n2 = -1 To 1 For q = -50 To 50 u1 = endu(n1, n2) q0 = endb(0, 0) q1 = endb(n1, n2) qq = Int((q1 - q0) / h) qx = q - qq pp = 0 If qx 50 Then pp = 1 If qx -50 Then pp = 1 If pp = 1 Then qx = 0 v1 = u1 + v(9, n1, n2, qx) If pp = 1 Then v1 = -999 endv(n1, n2, q) = v1 endq(n1, n2, q) = qx Next Next Next maxv = -999 For n1 = -1 To 1 For n2 = -1 To 1 For q = 0 To 50 If endv(n1, n2, q) maxv Then nx1 = n1 If endv(n1, n2, q) maxv Then nx2 = n2 If endv(n1, n2, q) maxv Then qx = q If endv(n1, n2, q) maxv Then maxv = endv(n1, n2, q) Next Next Next op(9) = nx1 op(10) = nx2 oq(10) = qx oq(9) = endq(op(9), op(10), oq(10)) For j = 1 To 9 m2 = 9 - j op(m2) = goton(m2 + 1, op(m2 + 1), op(m2 + 2), oq(m2 + 1)) oq(m2) = gotoq(m2 + 1, op(m2 + 1), op(m2 + 2), oq(m2 + 1)) Next For m1 = 0 To 10 For m2 = 0 To 10 cs(m1, m2) = c(m1, m2, op(m2)) Next Next e = 0 For m2 = 0 To 9 e = e + op(m2) ^ 2 Next If e 3 Then h = h / 2 If h 10 ^ (-5) Then t2 = 1000 Debug.Print t2, e, maxv t2 = t2 + 1 Loop t3 = t3 + 1 Loop End Sub